Unit UnDmModuleBeheer;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SOAPDm, Provider, DB,
  ADODB;

type
  IDmModuleBeheer = interface(IAppServerSOAP)
    ['{C15673F6-E01C-4F3E-B4AB-6D2F5B246D76}']
  end;

  TDmModuleBeheer = class(TSoapDataModule, IDmModuleBeheer, IAppServerSOAP, IAppServer)
    DbConnection: TADOConnection;
    QrModuleBeheer: TADOQuery;
    PrvModuleBeheer: TDataSetProvider;
    DsModuleBeheer: TDataSource;
    TblModuleConfiguratue: TADOTable;
    TblSensorTypes: TADOTable;
    PrvSensorTypes: TDataSetProvider;
    TblModuleConfiguratueID: TAutoIncField;
    TblModuleConfiguratueTYPE_1: TIntegerField;
    TblModuleConfiguratueINTERVAL_1: TIntegerField;
    TblModuleConfiguratueTYPE_2: TIntegerField;
    TblModuleConfiguratueINTERVAL_2: TIntegerField;
    TblModuleConfiguratueTYPE_3: TIntegerField;
    TblModuleConfiguratueINTERVAL_3: TIntegerField;
    TblModuleConfiguratueTYPE_4: TIntegerField;
    TblModuleConfiguratueINTERVAL_4: TIntegerField;
    TblModuleConfiguratueTYPE_5: TIntegerField;
    TblModuleConfiguratueINTEGER_5: TIntegerField;
    TblModuleConfiguratueTYPE_6: TIntegerField;
    TblModuleConfiguratueINTEGER_6: TIntegerField;
    TblSensorTypesID: TAutoIncField;
    TblSensorTypesNAAM: TStringField;
    TblSensorTypesFORMULE: TBlobField;
    QrModuleBeheerID: TAutoIncField;
    QrModuleBeheerNUMMER: TIntegerField;
    QrModuleBeheerLOKATIE_ID: TIntegerField;
    QrModuleBeheerONDERZOEKS_ID: TIntegerField;
    TblModuleConfiguratueMODULE_ID: TIntegerField;
    TblModuleConfiguratueSTAMP: TDateTimeField;
    TblModuleConfiguratueSEQUENCE: TIntegerField;
  private
  
  public
  
  end;

implementation

{$R *.DFM}

procedure TDmModuleBeheerCreateInstance(out obj: TObject);
begin
 obj := TDmModuleBeheer.Create(nil);
end;

initialization
   InvRegistry.RegisterInvokableClass(TDmModuleBeheer, TDmModuleBeheerCreateInstance);
   InvRegistry.RegisterInterface(TypeInfo(IDmModuleBeheer));
end.
